home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / Zoo1.Dxr / 00014.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  1.5 KB  |  37 lines
  1. on exitFrame
  2.   global tempcount, tempObject, currList, LbalanceHList, LbalanceVList, RbalanceHList, RbalanceVList, LcurrentWeight, homeHList, stickH1List, stickH2List, stickV1List, stickV2List, onScaleList, RcurrentWeight, incCount
  3.   set RcurrentWeight to 0
  4.   set LcurrentWeight to 0
  5.   set incCount to 0
  6.   set LbalanceHList to [88, 86, 85, 84, 83, 83, 83, 84, 85, 85, 85, 85]
  7.   set LbalanceVList to [244, 238, 232, 226, 220, 214, 208, 202, 196, 196, 196, 196]
  8.   set RbalanceHList to [257, 257, 258, 258, 258, 258, 257, 255, 254, 254, 254, 254]
  9.   set RbalanceVList to [196, 202, 208, 214, 220, 226, 232, 238, 244, 244, 244, 244]
  10.   set stickH1List to [1, 120, 112, 92, 72, 52, 32, 12, 12, 12, 12]
  11.   set stickV1List to [170, 164, 158, 152, 146, 140, 134, 128, 122, 122]
  12.   set stickH2List to [210, 220, 226, 246, 266, 286, 306, 226, 290, 300]
  13.   set stickV2List to [124, 130, 136, 142, 148, 154, 160, 166, 172, 178]
  14.   set onScaleList to [0, 0, 0, 0, 0]
  15.   set homeHList to [408, 323, 240, 156, 492]
  16.   set currList to [3, 2, 1, 4]
  17.   puppetSprite(2, 1)
  18.   puppetSprite(3, 1)
  19.   puppetSprite(4, 1)
  20.   puppetSprite(6, 1)
  21.   puppetSprite(10, 1)
  22.   puppetSprite(11, 1)
  23.   puppetSprite(12, 1)
  24.   repeat with T = 14 to 17
  25.     set the visible of sprite T to 1
  26.     puppetSprite(T, 1)
  27.   end repeat
  28.   if tempcount <> 3 then
  29.     set the visible of sprite 19 to 1
  30.     WEASELSpeak("intro" & tempcount)
  31.     set the visible of sprite 19 to 0
  32.     updateStage()
  33.   end if
  34.   set the castNum of sprite 9 to the number of cast (tempcount & "t")
  35.   set tempObject to 30
  36. end
  37.